home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh47a.d64
/
colormaker 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
60 lines
1 REM ****************************
2 REM * COLORMAKER 64 *
3 REM ****************************
4 REM * (C) BY GPG-SOFT *
5 REM ****************************
6 REM
10 POKE198,0
20 POKE53280,6:POKE53281,6
30 INPUT"[147][155][206]AME DES [194]ILDES";NA$
40 NA$=LEFT$(NA$+"********",8)
50 FORI=1TO8
60 POKE4259+I,ASC(MID$(NA$,I,1))
70 NEXT
80 SYS4268:REM LOAD PICTURE
85 GOSUB460:IFD=1THEN80
90 PRINT"[147]1 - [200]IRES (PACKED)"
100 PRINT"2 - [200]IRES ([200]I-[197]DDI)"
110 PRINT"3 - [205]ULTICOLOR ([203]OALAPAINTER)"
120 GETA$:IFA$=""THEN120
130 IFA$<>"1"THENGOTO140
135 POKE8017,1:POKE4166,0:POKE4105,127:POKE4107,64
136 POKE4121,39:GOTO200
140 IFA$<>"2"THENGOTO150
145 POKE8017,0:POKE4166,0:POKE4105,128:POKE4107,0
146 POKE4121,232:GOTO200
150 IFA$<>"3"THENGOTO120
160 POKE8017,3:POKE4105,127:POKE4107,64
170 POKE4166,16:POKE4121,39
200 PRINT"[147][194]ITTE [196]ISKETTE FUER [199]RAFIKEN EINLEGEN"
210 PRINT"[194]UCHSTABE DER [198]ILES ?"
220 GETA$:IFA$=""THEN220
230 F=ASC(A$):IFF<65ORF>90THEN220
250 POKE53280,2:S=49:GOSUB400
260 POKE53280,6:S=50:GOSUB400
270 POKE53280,0:S=51:GOSUB400
280 POKE53280,7:S=52:GOSUB400
290 POKE53265,27:POKE53272,23
300 PRINT"[147]"
310 POKE53280,6:POKE53281,6
320 END
400 SYS4096:FORI=0TO15
410 READA:POKE8000+I,A
420 NEXT
430 SYS4326:REM BERECHNUNG
440 POKE4260,F:POKE4261,S:SYS4294:REM SAVE
445 GOSUB460:IFD=1THENGOTO440
450 RETURN
460 OPEN1,8,15
461 INPUT#1,Q1,Q$,Q2,Q3:CLOSE1
462 IFQ1=0THEND=0:RETURN
463 POKE53265,27:POKE53272,23
464 POKE53281,6
465 PRINT"[147][194]ITTE ANDERE [196]ISKETTE EINLEGEN"
466 GETA$:IFA$=""THEN466
467 D=1:RETURN
500 DATA0,0,1,0,2,0,0,0,2,3,2,0,0,0,0,0
510 DATA0,0,0,2,3,3,1,0,0,2,0,0,0,4,2,0
520 DATA1,0,0,0,0,0,0,0,0,0,0,3,4,0,0,4
530 DATA0,0,0,4,0,2,0,1,3,2,0,0,0,3,0,0